home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Complete Mac Interactive / Macworld Complete Mac Interactive CD)(1994).iso / The Best of BMUG / Utilities / Text and Speech / Alpha.5.76 / Tcl / SystemCode / AlphaBits.tcl next >
Text File  |  1994-03-15  |  5KB  |  208 lines
  1. if {[regexp {[]\(\)\"\{\}\[]} $HOME]} {alertnote "Alpha may not work properly if it's pathname includes parenthesis, square brackets, double quotes, or curly braces."}
  2.  
  3. # Alpha 5.x Init File
  4. # Change the first number to '1' if you don't want Alpha to remap the 
  5. # keyboard (i.e you are using an international keyboard).
  6. init 0 2
  7. set optionIsMeta     1
  8. set emacsBindings    1
  9.  
  10. # Icon menu names. The number refers to the resource id of the #ics family.
  11. set fsetMenuName     "SetFiles"
  12. #set fsetMenuName     "•129"
  13. set helpMenu        "•130"
  14. set thinkMenu         "•300"
  15. set toolserverMenu     "•265"
  16. set winMenu         "•263"
  17.  
  18. # A few definitions I'll need later.
  19. proc quoteExpr str {
  20.     regsub -all {\\} $str {\\\\} str
  21.     regsub -all {\|} $str {\|} str
  22.     regsub -all {\*} $str {\\*} str
  23.     regsub -all {\+} $str {\\+} str
  24.     regsub -all {\(} $str {\\(} str
  25.     regsub -all {\)} $str {\\)} str
  26.     regsub -all {\[} $str {\\[} str
  27.     regsub -all {\]} $str {\\]} str
  28.     return $str
  29. }
  30.  
  31. proc quoteExpr2 str {
  32.     regsub -all {\\} $str {\\\\} str
  33.     regsub -all {\|} $str {\|} str
  34.     regsub -all {\*} $str {\\*} str
  35.     regsub -all {\+} $str {\\+} str
  36.     regsub -all {\(} $str {\\(} str
  37.     regsub -all {\)} $str {\\)} str
  38.     regsub -all {\{} $str "\\\{" str
  39.     regsub -all {\}} $str "\\\}" str
  40.     regsub -all {\[} $str {\\[} str
  41.     regsub -all {\]} $str {\\]} str
  42.     return $str
  43. }
  44. source ":Tcl:SystemCode:menus.tcl"
  45.  
  46. if {$emacsBindings} {
  47.     source ":Tcl:SystemCode:emacs.tcl"
  48. } else {
  49.     source ":Tcl:SystemCode:vi.tcl"
  50. }
  51.  
  52. bind Left  backwardChar
  53. bind Left <c> beginningOfLine
  54. bind Left <s> backwardCharSelect
  55. bind Left <sc> beginningLineSelect
  56. bind Left <z> {scrollLeftCol 15}
  57. bind Left <o> backwardWord
  58. bind Left <os> backwardWordSelect
  59.  
  60. bind Right  forwardChar
  61. bind Right <c> endOfLine
  62. bind Right <s> forwardCharSelect
  63. bind Right <sc> endLineSelect
  64. bind Right <z> {scrollRightCol 15}
  65. bind Right <o> forwardWord
  66. bind Right <os> forwardWordSelect
  67.  
  68. bind Up  previousLine
  69. bind Up <s> prevLineSelect
  70. bind Up <c> beginningOfBuffer
  71. bind Up <sc> beginningBufferSelect
  72. bind Up <z> scrollUpLine
  73. bind Up <o> scrollUpLine
  74.  
  75. bind Down  nextLine
  76. bind Down <c> endOfBuffer
  77. bind Down <s> nextLineSelect
  78. bind Down <sc> endBufferSelect
  79. bind Down <z> scrollDownLine
  80. bind Down <o> scrollDownLine
  81.  
  82. bind ',' <z> pushMark
  83. bind '.' <z> popMark
  84.  
  85. # Keypad definitions
  86. bind KPad4  backwardWord                 
  87. bind KPad4   <c> backwardDeleteWord 
  88. bind KPad6   forwardWord                 
  89. bind KPad6   <c> deleteWord 
  90. bind Clear   insertToTop                 
  91. # Never bind Keypad /
  92. # Never bind Keypad *
  93. bind KPad0   pageBack                     
  94. bind Enter   pageForward
  95. ;bind KPad3   repeatSearchForward         
  96. ;bind KPad1   repeatSearchBackward     
  97. bind Kpad1 prevFunc
  98. bind Kpad3 nextFunc
  99. bind KPad.   endOfBuffer                 
  100. bind KPad5   exchangePointAndMark     
  101. bind KPad7   backwardDeleteWord         
  102. bind KPad9   deleteWord                 
  103. bind 's' <z>     isearch            
  104. bind 'r' <z>     rsearch            
  105. bind 'a' <z>     beginningOfLine    
  106. bind 'b' <z>     backwardChar        
  107. bind 'd' <z>     deleteChar        
  108. bind 'f' <z>     forwardChar        
  109. bind 'e' <z>     endOfLine        
  110. bind 'g' <z>     abortEm            
  111. bind 'k' <z>     killLine            
  112. bind 'l' <z>    centerRedraw
  113. bind 't' <z>     insertToTop        
  114. bind 'p' <z>     previousLine        
  115. bind 'n' <z>     nextLine            
  116. bind 'o' <z>     openLine            
  117. bind 'u' <z>     iterationCount    
  118. bind 'v' <z>     pageForward        
  119. bind 'v' <e>     pageBack
  120. bind 'z' <z>     pageBack
  121. bind 'w' <z>     cut            
  122. bind 'w' <e>     copy
  123. bind "' '" <z>     setMark
  124. bind 'y' <z>     yank                
  125.  
  126. # Alpha variable and flag definitions.
  127. set temp [getMainDevice]
  128. set tileWidth [expr {[lindex $temp 2] - [lindex $temp 0] - 10}]
  129. if {$tileWidth > 510} {set defWidth 510} else {set defWidth $tileWidth }
  130. set tileHeight [expr {[lindex $temp 3] - [lindex $temp 1] - 45}]
  131. set defHeight $tileHeight
  132. unset temp
  133.  
  134. source ":Tcl:SystemCode:definitions.tcl"
  135.  
  136.  
  137. # Color support
  138. # colors -20481 2703 2703 -632 -588 -11060
  139. colors 0 0 0 -588 -818 -1507
  140.  
  141. bind F1     iconify                     
  142. bind F2     cut                         
  143. bind F3     copy                         
  144. bind F4     yank                         
  145. bind F5     prevWindow
  146. bind F6        nextWindow
  147. bind F7        tiled
  148. bind F8        swapWithNext
  149. bind F9     pushMark
  150. bind F10    popMark
  151. bind F11    shrinkHigh
  152. bind F12    shrinkLow
  153. bind F13    startKeyboardMacro         
  154. bind F14    endKeyboardMacro             
  155. bind F15    executeKeyboardMacro         
  156.  
  157. bind Del    deleteChar                 
  158. bind Help   alphaHelp                     
  159. bind Home   beginningOfBuffer             
  160. bind End    endOfBuffer                 
  161. bind Pgup   pageBack                     
  162. bind Pgdn   pageForward                  
  163.  
  164. proc debug {} {
  165.     uplevel #0 {
  166.         set debugging 1
  167.     }
  168. }
  169.  
  170. # Load electric alias, rebind tcl file completion for precedence.
  171. proc loadElectricAlias {} {
  172.     global HOME
  173.     uplevel #0 {
  174.         source "$HOME:Tcl:ElectricAlias:electricAlias.tcl"
  175.     }
  176.     message "ElectricAlias loaded."
  177.     bind '\t' tclFileCompletion "Csh"
  178.     enableMenuItem Misc loadElectricAlias off
  179. }
  180.  
  181. menu -n Tcl {
  182.     "traceTclProc"
  183.     "dumpTraces"
  184.     "(-"
  185.     "getVarValue"
  186. }
  187.  
  188.  
  189. source ":Tcl:SystemCode:procs.tcl"
  190. source ":Tcl:SystemCode:flags.tcl"
  191. source ":Tcl:SystemCode:filesets.tcl"
  192. source ":Tcl:SystemCode:copyRing.tcl"
  193. set auto_path [list $HOME:Tcl:SystemCode $HOME:Tcl:UserCode]
  194. source ":Tcl:SystemCode:library.tcl"
  195.  
  196. # Default curr fileset is the first one. Can be changed in 'userStartup.tcl'.
  197. set currFileSet [lindex [array names fileSets] 0]
  198.  
  199. # Use "userStartup.tcl" to define or change any tcl information. */
  200. if {[file exists ":userStartup.tcl"]} {
  201.     source  ":userStartup.tcl"
  202. }
  203.  
  204. source "$HOME:Tcl:SystemCode:filesetMenu.tcl"
  205.  
  206. # source {PowerPete:Desktop Folder:down:phm:modeprocs.tcl}
  207. # source {PowerPete:Desktop Folder:down:phm:modes.tcl}
  208.